From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 16 Oct 2021 07:10:06 +0000 (+0300)
Subject: Fix removal of fringe indication of bookmarks
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~18^2~529
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e842d7f29a;p=emacs.git

Fix removal of fringe indication of bookmarks

* lisp/bookmark.el (bookmark--remove-fringe-mark): Fix off-by-one
error in looking for bookmark-related overlays.  (Bug#51233)
---

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index d64966df5af..fb90f01456e 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -479,7 +479,7 @@ See user option `bookmark-set-fringe'."
       (dolist (buf (buffer-list))
         (with-current-buffer buf
           (when (equal filename buffer-file-name)
-            (setq overlays (overlays-in pos pos))
+            (setq overlays (overlays-in pos (1+ pos)))
             (while (and (not found) (setq temp (pop overlays)))
               (when (eq 'bookmark (overlay-get temp 'category))
                 (delete-overlay (setq found temp))))))))))